;;;; 2007-09-08 12:04:17
;;;; This is your lisp file. May it serve you well.

(in-package :gtcup)

(defun run-main ()
  (let ((connection nil))
    (setf connection (create-database-connection
                      "localhost"
                      "gtcup"
                      "root"
                      nil))
    ;; Connect to database
    (connect-to-db connection))
  (clsql:disconnect))

  
    